home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / amag / sh9301b.lha / ARexx-Utilities(S.55) / Copy600HD.rexx < prev    next >
OS/2 REXX Batch file  |  1993-01-12  |  792b  |  37 lines
  1. /*          Copy600HD           */
  2. /* Eine Diskette mit dem A600HD in
  3.      einem Durchgang kopieren */
  4. say ""
  5. say " Bitte Quell-Diskette einlegen"
  6. options prompt " und RETURN-Taste drücken"
  7. pull warte
  8.  
  9. address COMMAND
  10. /* Puffer anlegen */
  11. if ~exists('dh0:buffer') then do
  12.   'makedir dh0:Buffer'
  13.   bufnam="dh0:Buffer"
  14.   end
  15.  empty=bufnam||"/#?"
  16.  'delete >NIL:' empty
  17.  target="df0: to" bufnam "all"
  18.  'copy' target
  19.  start:
  20.  'echo "*ec"'
  21.  say "Bitte Ziel-Diskette einlegen"
  22.  options prompt " und RETURN-Taste drücken"
  23.  pull warte
  24.  target=bufnam "to df0: all"
  25.  'copy' target
  26.  'echo "*ec"'
  27.  say " Diskette kopiert!"
  28.  options prompt " Noch eine Diskette?-j/n > "
  29.  pull jn
  30.  if upper(jn)~="J" then do
  31.   say " Puffer wird gelöscht!"
  32.   'delete >NIL:' bufnam 'all'
  33.   end
  34.   else do
  35.    signal start
  36.    end
  37.